home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / RA.cpt / Local Variables.ra < prev    next >
Text File  |  1986-10-17  |  713b  |  47 lines
  1. |
  2. |   RA™
  3. |
  4. |    Local Parameters
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA™'s variables are normally all!"
  10. "global in nature.  However,!"
  11. "any variable used in a subroutine!"
  12. "is local to the subroutine.!"
  13. "If you need a global variable!"
  14. "within a subroutine, pass it!"
  15. "on the stack.!!"
  16. #A;
  17. 5 A: "Global 'A' = " A. ! "!"
  18. #B; 
  19. "Global 'A' is still = " A. ! "!!"
  20. #A;
  21. "THE END."
  22. $
  23. &A
  24. "Hit any key: " ?§ µ @`
  25. &B
  26. 3 A: "Local 'A' = " A. ! "!" ` 
  27. |
  28. |  RA title routine
  29. |
  30. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  31.  
  32. &O
  33. 40 100 Ω
  34. "RA™"
  35. 60 45 Ω 
  36. "© 1986 COM~LINK & S.Koren" 
  37. 80 60 Ω
  38. "All rights reserved." `
  39.  
  40. &L
  41. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  42.  
  43. &N
  44. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  45.  
  46. &P ?§ @ `
  47. $